(store_function_docstring): Do nothing for bytecode object

which has no slot for doc string.

diff --git a/src/doc.c b/src/doc.c
index 81c22065936b53563285a19e553befc4f719c398..ae6f77ba7e7057e702d2a8fd5a6781fb78664fc6 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -245,10 +245,8 @@ store_function_docstring (fun, offset)
     {
       /* This bytecode object must have a slot for the
         docstring, since we've found a docstring for it.  */
-      if (XVECTOR (fun)->size <= COMPILED_DOC_STRING)
-       abort ();
-
-      XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset;
+      if (XVECTOR (fun)->size > COMPILED_DOC_STRING)
+       XFASTINT (XVECTOR (fun)->contents[COMPILED_DOC_STRING]) = offset;
     }
 }